home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Main.dxr / 00001_Main movie script.ls next >
Encoding:
Text File  |  1998-09-17  |  2.3 KB  |  41 lines
  1. global gMachineData, gMasterData, gHandCursor, gFingerCursor
  2.  
  3. on prepareMovie
  4.   setModule(gMasterData, #main)
  5.   set the text of member "PrintAllAnswers" to EMPTY
  6.   set gHandCursor to [member "hand cursor" of castLib "Shared", member "hand mask" of castLib "Shared"]
  7.   set gFingerCursor to [member "finger cursor" of castLib "Shared", member "finger mask" of castLib "Shared"]
  8.   set the exitLock to 1
  9.   if the keyDownScript = EMPTY then
  10.     set the keyDownScript to "quitCatcher"
  11.   end if
  12.   cursor(0)
  13.   if not windowPresent("Sound Control") then
  14.     preLoadMovie("Sound")
  15.   end if
  16. end
  17.  
  18. on clearFields
  19.   set vEmptyList to ["define field", "PrintAllAnswers", "Island1 field", "assessment field", "eggs field", "keyboard field", "patterns field", "puzzler field", "reflect field", "storyteller field", "think3D field", "Island2 field", "bias field", "clue field", "facts field", "sleuth field", "whyfiles field", "skilluse field", "response1", "response2", "end field 1", "end field 2", "end field 3", "end field 4", "end field 5", "fact field", "opinion field", "reply1", "reply3", "reply9", "reply11", "reply13", "reply15", "reply17", "reply19", "reply21", "rfield1", "rfield2", "rfield3", "rfield4", "rfield5", "rfield6", "rfield7", "rfield8", "rfield9", "rfield10", "rfield11", "rfield12", "rfield13", "rfield14", "rfield15", "rfield16", "rfield17", "rfield18", "plan1", "plan2", "plan3", "plan4", "plan5", "plan6", "plan7", "plan8", "plan9", "plan10", "plan11", "plan12", "plan13", "eval1 field", "eval2 field", "eval3 field", "charisma field 1", "charisma field 2", "charisma field 3", "charisma field 4", "charisma field 5", "fit field 1", "fit field 2", "fit field 3", "fit field 4", "fit field 5", "spinach field 1", "spinach field 2", "spinach field 3", "spinach field 4", "spinach field 5", "reflectquests field 1", "reflectquests field 2", "reflectquests field 3"]
  20.   repeat with x in vEmptyList
  21.     set the text of member x of castLib "Shared" to EMPTY
  22.   end repeat
  23. end
  24.  
  25. on quitNow
  26.   restoreMachine(gMachineData)
  27.   halt()
  28. end
  29.  
  30. on playTinaMovie
  31.   stopSounds()
  32.   go("Tina")
  33.   activate(gMasterData, #video)
  34. end
  35.  
  36. on preLoadTina
  37.   set the fileName of member "intro" to "@/Media/" & "tintro.mov"
  38.   set the preloadRam to 0.29999999999999999 * the size of member "intro"
  39.   preloadMember(member "intro")
  40. end
  41.